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EDTSCHMBELL = ring bell 18.50 =1984 23:45:4 VAX-11 Bliss-32 V4.0-7 1 E 

° 1278 08- 1 3be $3:53:38 DISKSVMSMASTER: tt i sre CHMBELL.BLI;1 age (1). \ 

: 1 1 ZTITLE ‘EDTSCHMBELL = ring bell’ 3 
: § § MODULE EDTSCHMBELL ( ! Ring bell é 
: Z 0 [DENT = *v04-000' ' File: CHMBELL.BLI Edit: JBS1002 : 
; 3 005 1 BEGIN 3 
: 4 007 } PETITIIITI LILI LLL LIL LLL LLL LLL LLL Lilli liiii iii | : 
. '@ * | g 
; 9 48 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * r 
: 10 010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \} bot 4 : - ALL RIGHTS RESERVED. * | 3 
4 . ® Py 
; ig $018 1 [fe a SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * $ 
4 15 0015 1 !* INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER * é 
4 18 pots 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY * 4 
H 1 001 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 13 Bois ; » TRANSFERRED. * ; 
: ' * i 
3 20 Boss 1 !® THE gh or ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
4 21 0021 1 !* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
; $§ 4 ; : 7 CORPORATION. * d 
3 if ® Py 
3 Si 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * H 
H 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; & 00 $ 1 !e * F 
; 2 00 1 te * $ 
3 28 00 8 1 See RRR AAA AREA AAAEEAEAE AAA ARERR RATER ATTA AAA AEAAAAAAAA AAA AEES H 
3 9 0029 1! F 
; %0 0030 1 3 
3 1 0031 1 !++ 3 
; $ he 1! FACILITY: EDT -- The DEC Standard Editor 3 
3 0033 1! 3 
3 4 0034 1 ! ABSTRACT: 3 
3 $2 tH 1! 3 
; $ it) ; This module rings the bell on the terminal : 
; HS 4 : ENVIRONMENT: Runs at any access mode - AST reentrant | : 
: 40 9040 1 ; AUTHOR: Shelly T. Solomon CREATION DATE: 10-Aug-1981 : 
rine 0042 1 | MODIFIED BY: F 
; 6 0045 1! : 
: 44 sg: : 3 1-001 - Original. STS 10-Aug-1981. a ‘ 
3 “Zz 094g : } 1-002 - Improve the appearance of the Listing. JBS 13-Jun-1985 i 
: 47 067 1 : 
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REQUIRE ‘EDTSRC: TRAROUNAM' ; 
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; i 

: 1 

; 1 

4 1 

: 1 

; 93 1 FORWARD ROUTINE 

3 3 EDTSS$RING_BELL : NOVALUE; ! Ring the bell on the terminal | 
: $9 496 1! 
: 60 1! INCLUDE FILES: | 
ff BB T! 
: 6 05 9 1 REQUIRE "EDTSRC:EDTREQ': 

eB RT 

: 66 6 $ 1 | MACROS: 

: 638 1! 

es Eg Oe 

; 20 0641 EQUATED SYMBOLS: 

fo BN 

: if 0645 OWN STORAGE: 

ce Sec$ 1 i NONE 

Fr 0648 1! 

: 78 0649 1! 

: 79 0650 1 
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EDTSCHMBELL EDTSCHMBELL - A ie 4.19 Sep-1984 VAX-11 Bliss-32_ V pope 3 

704-000 EDTSSRING_BELL mK + terminal bell 14- = ep-1984 $3333 3 DISK aKSVMGN STER: cto 1 SRCICHMBELL.. BLI;1 = (3) 
: ¢ ¢ ! ZSBITL ‘EDTSSRING_BELL = Ring terminal bell’ 
; 4 4 1 GLOBAL ROUTINE EDTSSRING_BELL ! Ring bell on terminal 
3 5 5 1 : MOVALUE = 
g $ 6 § 1 i 
3 6 1 !e4 i 
; 3 $33 FUNCTIONAL DESCRIPTION: i 
; 660 1 Ring the bell on the terminal. i 
; «(91 661 1 
; 4 BO56 : FORMAL PARAMETERS: 
; 9 664 1! NONE i 
3; 65 1! i 
; 9% 666 1 | IMPLICIT INPUTS: i 
; «97 667 1: i 
; Ww 668 1! NONE i 
GA .. 0669 1! i 
: 100 0670 1 | IMPLICIT OUTPUTS: : 
3 101 0671 1: i 
; 198 0672 1: NONE i 
; 7 0673 1! : 
3 104 0674 1 ! COMPLETION STATUS: 
: 105 0675 1! : 
: 106 0676 1} NONE i 
3 107 0677 1: i 
; 108 0678 1 | SIDE EFFECTS: i 
; 109 0679 1} i 
: 110 0680 1} NONE i 
3111 0681 1! ; 
; a 0682 1 i- 
: 11 0683 1 | 
3 (114 0684 BEGIN ; 
3 115 0685 : 
: 116 0686 EXTERNAL ROUTINE : 
a. ar 0687 EDTSSFMT_LIT, ! Format a Literal string | 3 
; Bs +434 EDTS$$OUT— “FMTBUF ; ! Dump the format buffer | ; 
: 120 0690 EDTSSFMT_LIT (UPLIT (7), 1); ' Format a bell upharacter : 
: $1 0691 EDTSSOUT_FMTBUF (); ' and send it | : 
3 122 0692 1 END; ! of routine EDTSSRING BELL r 
-TITLE EDTSCHMBELL EDTSCHMBELL - ring bell : 
-IDENT \V04-000\ : 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | ; 
00000007 00000 P.AAA: .LONG 7 : | 
-EXTRN EDTSSFMT_LIT, EDTSSOUT_FMTBUF : 
| ‘ 
0000 00000 -ENTRY EDTSSRING_BELL, Save nothing ; 0654 : 
01 bb 0002 PUSHL #1 > 0690 | ‘ 
00000006 > Ob PB Oooo? CALLS” #3 EDTSSEMT_LIT | 
20000006 00 00 FB 000E GALLS 96> EBTSSEOT bau : 0691 
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; Routine Size: 


$693 1 
94 1 !<BLF/PAGE> 
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EDTSCHMBELL EDTSCHMBELL - ring iB-beoe 1984 23:45:4 VAX-11 Bliss-32 V 
bu 600 ED ISSR RING_BELL A terminal bell 14-Sep =| 198 3: :22:2 DISKSVMSMASTER: cto + SRCSCHMBELL. BLI;1 gage 
..% 695 1 END ! of module EDTSCHMBELL 
13 0696 1 
; 128 97 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 26 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; senonaas SyEhol§ scossese Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28: 1. SRCJEDT 32:1 377 0 0 40 00:00.2 
3 ~$255$DUA28: -SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
: COMMAND QUALIFIERS 
: GEL SEPCRE CRO? CELE, SET IML OPT ELSE) /UOTRACEOACE SS, BEML LSP 1 CHNBELA FOR ISCR IS 2 CNEL, MSRC$: CHMBELL .BLI/UPDATE=(ENHS$: CHMBELL 
3: Size: 22 code + 4 data bytes 
3; Run Time: 00:08. 
3; Elapsed Time: 00:10. 
3 Lines/CPU Min: 4857 
3 reg Ao de 12996 
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